COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device XGP
C00006 00003	.portion some place text
C00012 ENDMK
C⊗;
.device XGP;
.require "basker.pub[sub,sys]" source_file;
.sides←1;

.MACRO YON(LBL)  ⊂ "Section "; SUB2! LBL ⊃;

.font 5 "fix20";
.COMMENT leave space for a full page figure;
.MACRO FIG(NAME) ⊂ SKIP TO COLUMN 1
.GROUP SKIP 20
NAME
.next page; ⊃

.MACRO BC ⊂ BEGIN PREFACE 0; INDENT 1,4; CRBREAK nojust ⊃

.MACRO BS ⊂ BEGIN PREFACE 0; INDENT 1,4; nojust ⊃

.MACRO SUB(IND) ⊂ INDENT 0,IND; TABS IND+1;⊃

.MACRO IB ⊂ turn on "%";
.AT """" ⊂ (IF THISFONT=1 THEN "%3" ELSE "%1"); ⊃
.AT "<" ⊂ "%2" ⊃;  AT ">" ⊂ "%1" ⊃;
. ⊃

.MACRO BI ⊂ BEGIN IB ⊃;
.MACRO OI ⊂ ONCE IB ⊃;

.MACRO BIB  ⊂  CB(References);
.	BEGIN INDENT 0,3; NOJUST; IB;
.	AT "AIM-" ⊂ "Stanford A. I. Memo AαIαMα-" ⊃;
.	COUNT exref TO 200
.	AT "⊗" ⊂ IF LINES<3 THEN NEXT COLUMN; NEXT EXREF; ("["&EXREF&"]  ") ⊃
.	⊃

.MACRO ITEMS;	⊂
.nojust; count item; count subitem in item printing "a";
.at "⊗⊗";	⊂ next subitem; indent 2,4; subitem!}.  { ⊃
.at "⊗";	⊂ next item; indent 0,2; item!}.  { ⊃
.⊃
.
.at "\\pers";	⊂ once nojust; indent 0,5; ("%3Personnel: %1"); ⊃;
.
.MACRO GET(FILE) ⊂ BEGIN "FILE"
.REQUIRE "FILE" SOURCE;
.END "FILE"
. ⊃

.SECNAME←"";
.portion some; place text;